home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 6.st / DRIVER.ARC / DRLOAD.LST < prev    next >
Encoding:
File List  |  1989-10-11  |  3.3 KB  |  114 lines
  1. '
  2. '                             GFA PRINTER DRIVER
  3. '                                 LOAD MODULE
  4. '
  5. '                    Copyright 1990 Antic Publishing, Inc.
  6. '
  7. '                              by Know Ware Mfg.
  8. '
  9. ' Note: these procedures to load a printer driver may be merged with your own
  10. ' programs and freely distributed provided this notice is not removed.
  11. '
  12. ' ===========================================================================
  13. '
  14. Procedure Get_driver
  15.   '
  16.   ' After this procedure is called, D_flag%=1 if an active printer driver was
  17.   ' found in the current directory; D_flag%=0 if an active printer driver was
  18.   ' not found.  A driver is active if it has the extension .PDA -- other
  19.   ' drivers have the extension .PDX.  To use a printer code, simply follow
  20.   ' Lprint with the variable containing the code value.  For example,
  21.   '
  22.   '      Lprint Boldon$
  23.   '
  24.   ' turns bold printing on.  See the table accompanying the printer driver
  25.   ' article in the January 1990 issue of START for a summary of values.
  26.   ' (However, most of the variable names are self-explanatory.)
  27.   '
  28.   Local D$
  29.   Void Gemdos(26,L:Basepage+128)
  30.   Driver_name$=Space$(20)
  31.   Drive=Gemdos(&H19)
  32.   Let Dir$=Dir$(Drive+1)
  33.   If Right$(Dir$,1)<>"\"
  34.     Let Dir$=Dir$+"\"
  35.   Endif
  36.   Let Dir$=Mid$("ABCDEFGHIJKLMNOP",Drive+1,1)+":"+Dir$
  37.   D$=Dir$+"*.PDA"          !Put your search path here
  38.   Fd$=D$+Chr$(0)
  39.   D_flag%=0
  40.   E_%=Gemdos(78,L:Varptr(Fd$),Attr%)
  41.   If E_%=0
  42.     Open "I",#1,D$
  43.     D_flag%=1
  44.     Bmove Basepage+158,Varptr(Driver_name$),14
  45.     Driver_name$=Left$(Driver_name$,Instr(Driver_name$,Chr$(0))-1)
  46.   Endif
  47.   @Para_to_char(*Align$)   !You can substitute your own driver variables
  48.   @Para_to_char(*Linef$)
  49.   If D_flag%=0
  50.     Let Linef$=Chr$(10)
  51.   Endif
  52.   @Para_to_char(*Formf$)
  53.   If D_flag%=0
  54.     Let Formf$=Chr$(12)
  55.   Endif
  56.   @Para_to_char(*Pagel$)
  57.   @Para_to_char(*Italon$)
  58.   @Para_to_char(*Italoff$)
  59.   @Para_to_char(*Boldon$)
  60.   @Para_to_char(*Boldoff$)
  61.   @Para_to_char(*Dblon$)
  62.   @Para_to_char(*Dbloff$)
  63.   @Para_to_char(*Undron$)
  64.   @Para_to_char(*Undroff$)
  65.   @Para_to_char(*Rtmar1$)
  66.   @Para_to_char(*Subon$)
  67.   @Para_to_char(*Supon$)
  68.   @Para_to_char(*Suboff$)
  69.   @Para_to_char(*Wideon$)
  70.   @Para_to_char(*Wideoff$)
  71.   @Para_to_char(*Nlq$)
  72.   @Para_to_char(*Draft$)
  73.   @Para_to_char(*Cpi10$)
  74.   @Para_to_char(*Cpi12$)
  75.   @Para_to_char(*Cpi17$)
  76.   @Para_to_char(*Lpi6$)
  77.   @Para_to_char(*Lpi8$)
  78.   @Para_to_char(*Rtmar2$)
  79.   If D_flag%
  80.     Close #1
  81.   Endif
  82. Return
  83. '
  84. ' ============================================================================
  85. Procedure Para_to_char(Para_hold%)
  86.   Local Hold$,Holdit$,Ihold$,Prhold$
  87.   If D_flag%
  88.     Line Input #1,Ihold$ !Reads Driver a line at a time
  89.     Jend%=Len(Ihold$)
  90.     J%=0
  91.     Prhold$=""
  92.     If Jend%>0
  93.       While J%<=Jend%
  94.         Do
  95.           Inc J%
  96.           Exit If J%>Jend%
  97.           Holdit$=Mid$(Ihold$,J%,1)
  98.           Exit If Holdit$=","
  99.           Hold$=Hold$+Holdit$
  100.         Loop
  101.         Prhold$=Prhold$+Chr$(Val(Hold$)) !Builds a character string
  102.         Hold$=""
  103.       Wend
  104.       *Para_hold%=Prhold$ !Passes string back to Get_driver
  105.     Else
  106.       *Para_hold%=""
  107.     Endif
  108.   Else
  109.     *Para_hold%="" !Passes blank strings if driver not found
  110.   Endif
  111. Return
  112. '
  113. ' ===========================================================================
  114.